; Mame Installer script, Version 1.2, Made by Triumph using InstallerFX !
(if (= x 1) (welcome))
(onerror (CLEANUP))
; Stop InstallerFX !
(procedure CLEANUP
(delete "t:MameAnim")
(delete "t:MameAnim.prefs")
(delete "t:MameLogo")
(delete "t:MameLogo.prefs")
(delete "t:Background")
(delete "t:Background.prefs")
) ; CLEANUP
(set @user-level 0)
;(set Opt 3)
(complete 0)
(copyfiles
(source "InstallerFX/Background_DARK")
(dest "t:")
(nogauge)
(newname "Background")
)
(copyfiles
(source "InstallerFX/Background.prefs")
(nogauge)
(dest "t:")
(newname "Background.prefs")
)
(complete 5)
(copyfiles
(source "InstallerFX/MameLogo")
(nogauge)
(dest "t:")
(newname "MameLogo")
)
(copyfiles
(source "InstallerFX/MameLogo.prefs")
(nogauge)
(dest "t:")
(newname "MameLogo.prefs")
)
(complete 10)
(copyfiles
(source "InstallerFX/Mameanim")
(nogauge)
(dest "t:")
(newname "MameAnim")
)
(copyfiles
(source "InstallerFX/Mameanim.prefs")
(nogauge)
(dest "t:")
(newname "MameAnim.prefs")
)
(complete 20)
(run "run InstallerFX/InstallerFX t:Background")
(set @user-level 2)
(run "wait 2")
; Waiting for InstallerFX to finished Background Picture!
(complete 25)
(run "run InstallerFX/InstallerFX t:Mamelogo")
(run "wait 2")
(run "run InstallerFX/InstallerFX t:MameAnim")
(complete 30)
(
(set Mame_dest
(tackon
(askdir
(prompt "Where do you want MAME to be installed? (A drawer WILL be created there.)")
(help @askdir-help)
(default @default-dest)
)"Mame")
)
(makedir Mame_dest (infos))
(makedir (tackon Mame_dest "cfg"))
(makedir (tackon Mame_dest "hi"))
(makedir (tackon Mame_dest "roms"))
(makedir (tackon Mame_dest "samples"))
(copyfiles
(prompt "Copying all Files ?")
(help @copyfiles-help)
(source "mame/")
(dest Mame_dest)
(pattern "#?")
(infos)
(files)
(confirm)
)
)
(complete 70)
(copyfiles
(source "InstallerFX/Select_Icon.prefs")
(nogauge)
(dest "t:")
(newname "MameLogo.prefs")
)
(copyfiles
(source "InstallerFX/Select_Icon")
(nogauge)
(dest "t:")
(newname "MameLogo")
)
(complete 75)
(run "wait 1")
(set Icon
(askchoice
(prompt "Select default Icon for tooltype")
(help @askchoice-help)
(choices "256 Colors (NewIcons) by Triumph"" MagicWB by Andrea Dezzani" " 4 Colors by Craig Howard" " 8 Colors (MWB) by Craig Howard" " 16 Colors (NewIcons) by Craig Howard")